home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / comm / irc / epic4-mos.lha / share / epic / script / events.hop < prev    next >
Text File  |  2002-09-18  |  1KB  |  43 lines
  1. # This set of filters was done to replace the
  2. # 'set MODERN_ART' function which used to be
  3. # in an ancient ircII shortly before invention
  4. # of the '/on' command.  :)
  5. #
  6. on ^timer "*:00*" echo *** The time is $0
  7. on #-msg 30 * set status_user - last: $0
  8. on ^names * echo $[15]0 $1-
  9. on ^names \* echo * $1-
  10. on ^who "Channel *" #
  11. on ^who * {
  12.     if ( [$0] == [*] ) {
  13.         echo $[9]1 [$[3]2] [          ] \($3@$4)
  14.     } {
  15.         echo $[9]1 [$[3]2] [$[10]0] \($3@$4)
  16.     }
  17.         @ who_counter++
  18. }
  19. on ^315 * {
  20.           echo TOTAL NUMBER OF LISTINGS - $who_counter
  21.           @ who_counter = 0
  22. }
  23. on ^list * echo $[15]0 $[4]1 $2-
  24. on ^list "\* *" echo -- <private> -- $[4]1 $2-
  25. on #-list 3 "Channel" @ numlists = 0
  26. on #-list 3 * @ numlists++
  27. on ^323 * {
  28.         echo TOTAL CHANNELS  - $numlists
  29.         @ numlists = 0
  30. }
  31.  
  32. on ^send_public * {
  33.     if ( [$0] == C ) {
  34.         echo <$N> $1-
  35.     } {
  36.         echo -->[$0] $1-
  37.     }
  38. }
  39. /* bans are automatically counted by the client */
  40. on ^368 * echo Total number of bans - $1
  41.  
  42. # lynx92/hop'94
  43.